PC-Blue - MS DOS Public Domain Library/PC-Blue MS-DOS Public Domain Library - NYACC.iso/vol099/addlf.bas

GW-BASIC | 1986-12-15 | 1.6 KB | 45 lines

10  INPUT"INPUT THE FILENAME THAT WAS DOWNLOADED WITHOUT LF'S (D:FILENAME)",A$
20  INPUT"INPUT THE NEW NAME FOR THE DOWNLOADED FILE (d:filename) ",B$
30  ' CHANGE THE INPUT AND OUTPUT NAMES TO THE NAMES OF THE FILES YOU WANT AS
40  ' INPUT AND OUTPUT  PRIMARILY USED TO COPY FILES WITH NO CARRIAGE RETURNS
50  ' IN THEM SO THAT YOU CAN EDLIN THEM   CONTRIBUTED BY DON WITHROW
55  '
60  ' UPDATED BY D VERT
70  '   THE MAJOR PROBLEM SEEMS TO BE A LACK OF LINE-FEEDS RATHER THAN
80  '   CARRIAGE RETURNS..THIS RE-WRITE WILL READ A CHARACTER AT A TIME
90  '   AND BUILD A NEW LINE UNTIL IT READS A CHARIAGE RETURN.  IT WILL
100  '   THEN WRITE OUT THAT LINE ALLOWING BASIC TO ADD ITS CARRIAGE RETURN.
102  ' THIS TECHNIQUE ALSO FIXES A PROBLEM WITH THE LINE AT A TIME
104  ' APPROACH WHICH CREATED A NEW LINE EVERY TIME IT FOUND A COMMA.
106  '
108  '
110  ON ERROR GOTO 190
120  OPEN A$ FOR INPUT AS #1
130  OPEN B$ FOR OUTPUT AS #2
140  REM
150  IF EOF(1) THEN GOTO 190 ELSE GOSUB 280: REM RETURNS WITH L$
160  PRINT #2,L$
170  PRINT L$
180  GOTO 150
190  PRINT "done..........":CLOSE:END
200  PRINT "error type=";ERR,"error stmt #=";ERL
210  ON ERROR GOTO 0
220  CLOSE:END
230  'This program will add Line feeds to a downloaded file that does
240  'not appear to have them when you try to list it using the DOS TYPE
250  'command. The file has to be a basic program
260  'After adding LF's to the file you can then use EDLIN to remove direct
270  'statements from the file.
280  REM
290  L$=""
300  WHILE S$ <> CHR$(13)
310  IF EOF(1) THEN RETURN 140
320  S$=INPUT$(1,#1): REM READ SINGLE CHARACTER
330  L$=L$+S$
340  WEND
350  LL%=LEN(L$)
360  IF LL%<1, THEN S$="": GOTO 280
370  L$=LEFT$(L$,LEN(L$)-1)
380  S$=""
390  RETURN